home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 June / Chip_2004-06_cd1.bin / software / tsw / tsw.exe / {app} / scripts / converttohtmlchars.tss < prev    next >
Text File  |  2003-07-09  |  957b  |  46 lines
  1. {
  2. [Scriptsettings]
  3. Scriptname=Convert <> chars to HTML codes
  4. ExecuteOnStartup=0
  5. ExecuteOnlyOnce=0
  6. }
  7. program MyScript;
  8.  
  9. function StringReplace(S, OldPattern, NewPattern: string): string;
  10. var
  11.   SearchStr, Patt, NewStr: string;
  12.   Offset: Integer;
  13. begin
  14.   SearchStr := S;
  15.   Patt := OldPattern;
  16.  
  17.   NewStr := S;
  18.   Result := '';
  19.   while SearchStr <> '' do
  20.   begin
  21.     Offset := Pos(Patt, SearchStr);
  22.     if Offset = 0 then
  23.     begin
  24.       Result := Result + NewStr;
  25.       Break;
  26.     end;
  27.     Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern;
  28.     NewStr := Copy(NewStr, Offset + Length(OldPattern), 2147483647);
  29.     SearchStr := Copy(SearchStr, Offset + Length(Patt), 2147483647);
  30.   end;
  31. end;
  32.  
  33. function ConvertIt(s: string) : string;
  34. begin
  35.  s := StringReplace(s, '<', '<');
  36.  s := StringReplace(s, '>', '>');
  37.  Result := s;
  38. end;
  39.  
  40. var
  41.  Code: string;
  42. begin
  43.  Code := GetText;
  44.  SetText(ConvertIt(Code));
  45. end.
  46.